      function cputime(time0)
      implicit none
c
      real tarray(2)
      real cputime
      real time0

c should return elapsed system time
c since time0 as real number of seconds
c
c      cputime = your_system_timer
c eg cray:
c      cputime = rtc()/1.e9 - time0
c vax/convex:
c      cputime = secnds(time0)
      call eetime(tarray)
      cputime = tarray(1)
      end
